home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / byt87ibm.arc / SAGAN.ARC / MDRIVER.ASM next >
Assembly Source File  |  1987-06-17  |  4KB  |  210 lines
  1. ; 
  2. ; 
  3. ; 
  4. ; ====================== CODE SEGMENT DEFN ======================= 
  5. ; 
  6. CSEG    segment public para 'code' 
  7. ; 
  8. ; Set to MICROSOFT = 0 to make mousesys  sample program 
  9. ; Set to MICROSOFT = 1 to make microsoft sample program 
  10. ;  
  11. MICROSOFT    = 0
  12. ; 
  13.     ORG    0 
  14. ; 
  15. ZERO    LABEL    WORD 
  16. ; 
  17.     ORG    100h        ; For sample program only 
  18. ; 
  19. ; 
  20.     ASSUME CS:CSEG, DS:CSEG, ES:NOTHING, SS:NOTHING 
  21. ; 
  22. START: 
  23.     JMP    SAMPLECODE 
  24. ; 
  25. ; These are the available functions: 
  26. ; 
  27. ;     function 0 = initialize mouse 
  28. ;     function 1 = return button status 
  29. ;     function 2 = return relative motion 
  30. ;     function 3 = de-initialize mouse 
  31. ;     function 4 = return current serial port 
  32. ; 
  33.     IF MICROSOFT 
  34.     INCLUDE MICROSOF.ASM 
  35.     ELSE 
  36.     INCLUDE MOUSESYS.ASM 
  37.     ENDIF 
  38. ; 
  39. VIDEO    =    10H 
  40. ; 
  41. MAXX    DW    80 
  42. MAXY    DW    22 
  43. MYX    DW    0 
  44. MYY    DW    0 
  45. MBSTAT    DB    0FFH 
  46. CVM    DB    0 
  47. ; 
  48. BUT1MES    DB    'Button one:  $' 
  49. BUT2MES    DB    'Button two:  $' 
  50. BUT3MES DB    'Button three:$' 
  51. PRESMES    DB    'pressed $' 
  52. RELMES    DB    'released$' 
  53. ERRMES    DB    'Mouse or Mouse software not installed$' 
  54. ; 
  55. ERR_NODEVICE: 
  56.     MOV    DX,OFFSET ERRMES 
  57.     CALL    PRINT 
  58.     JMP    EXIT_ROUTINE 
  59. ;     
  60. SAMPLECODE: 
  61.     PUSH    CS 
  62.     POP    DS 
  63.     MOV    AH,0FH 
  64.     INT    VIDEO              ; Get current video mode 
  65.     MOV    CVM,AL            ; Save current video mode 
  66.     MOV    BYTE PTR MAXX,AH    ; store maximum cursor position 
  67.     SUB    AH,AH 
  68.     INT    VIDEO            ; Clear screen 
  69.     MOV    DH,BYTE PTR MAXY    ; Row 22, column 0 
  70.     SUB    DL,DL 
  71.     PUSH    DX 
  72.     CALL    SET_CURSOR 
  73.     MOV    DX,OFFSET BUT1MES 
  74.     CALL    PRINT 
  75.     POP    DX 
  76.     INC    DH 
  77.     PUSH    DX 
  78.     CALL    SET_CURSOR 
  79.     MOV    DX,OFFSET BUT2MES 
  80.     CALL    PRINT 
  81.     POP    DX 
  82.     INC    DH 
  83.     CALL    SET_CURSOR 
  84.     MOV    DX,OFFSET BUT3MES 
  85.     CALL    PRINT 
  86. ; 
  87.     MOV    BX,4 
  88.     CALL    ENTRY        ; Serial port in Ax 
  89.     SUB    BX,BX 
  90.     CALL    ENTRY        ; Initialize mouse 
  91.     OR    AL,AL        ; If al = zero then an error occured
  92.     JZ    ERR_NODEVICE 
  93. SCLOOP: 
  94.     MOV    BX,2 
  95.     CALL    ENTRY 
  96.     MOV    CX,5        ; scale x coordinate 
  97.     CWD 
  98.     IDIV    CX 
  99.     ADD    AX,MYX        ; My x cursor position 
  100.     JNS    SCLOOP1 
  101.     MOV    AX,MAXX        ; wrap to right 
  102.     DEC    AX 
  103. SCLOOP1: 
  104.     CMP    AX,MAXX 
  105.     JNG    SCLOOP2 
  106.     SUB    AX,AX        ; Wrap to left 
  107. SCLOOP2: 
  108.     MOV    MYX,AX        ; Save new x 
  109.     MOV    AX,BX        ; get delta y  
  110.     CWD 
  111.     IDIV    CX 
  112.     ADD    AX,MYY        ; My y cursor position 
  113.     JNS    SCLOOP25 
  114.     MOV    AX,MAXY        ; Wrap to bottom of screen 
  115.     DEC    AX 
  116. SCLOOP25: 
  117.     CMP    AX,MAXY 
  118.     JNG    SCLOOP3 
  119.     SUB    AX,AX        ; Wrap to top 
  120. SCLOOP3: 
  121.     MOV    MYY,AX        ; Save new y 
  122.     MOV    BX,1 
  123.     CALL    ENTRY 
  124.     CMP    AL,MBSTAT 
  125.     JE    SCLOOP4 
  126.     MOV    MBSTAT,AL 
  127.     SHR    AX,1        ; put button 1 status in carry 
  128.     MOV    DH,BYTE PTR MAXY 
  129.     MOV    DL,15 
  130.     CALL    BUTTONPRINT 
  131.     SHR    AX,1 
  132.     INC    DH 
  133.     CALL    BUTTONPRINT 
  134.     SHR    AX,1 
  135.     INC    DH 
  136.     CALL    BUTTONPRINT 
  137. SCLOOP4: 
  138.     MOV    DL,BYTE PTR MYX 
  139.     MOV    DH,BYTE PTR MYY 
  140.     CALL    SET_CURSOR 
  141.     MOV    AH,1 
  142.     INT    16H        ; Keyboard input ? 
  143.     JZ    SCLOOP        ; No 
  144.     SUB    AH,AH 
  145.     INT    16H        ; Read key 
  146.     CMP    AL,27        ; <Esc> ? 
  147.     JZ    SCLOOP5 
  148.     MOV    AH,14 
  149.     INT    VIDEO 
  150.     MOV    AH,3 
  151.     SUB    BH,BH 
  152.     INT    VIDEO        ; Read cursor position 
  153.     MOV    BYTE PTR MYX,DL 
  154.     MOV    BYTE PTR MYY,DH 
  155.     JMP    SCLOOP 
  156. ; 
  157. SCLOOP5: 
  158.     MOV    BX,3 
  159.     CALL    ENTRY        ; Clean up after mouse 
  160. ; 
  161. EXIT_ROUTINE:     
  162.     MOV    AL,CVM 
  163.     SUB    AH,AH 
  164.     INT    VIDEO        ; Clear screen 
  165.     MOV    AX,04C00H     
  166.     INT    MSDOS        ; bye bye 
  167. ; 
  168. SET_CURSOR: 
  169.     SUB    BH,BH 
  170.     MOV    AH,02 
  171.     INT    VIDEO        ; Set cursor position 
  172.     RET 
  173. ; 
  174. BUTTONPRINT: 
  175.     PUSH    AX 
  176.     PUSH    DX 
  177.     PUSHF 
  178.     CALL    SET_CURSOR 
  179.     MOV    DX,OFFSET RELMES 
  180.     POPF 
  181.     JNC    BP2            ; Carry means button pressed 
  182.     MOV    DX,OFFSET PRESMES 
  183. BP2: 
  184.     CALL    PRINT 
  185.     POP    DX 
  186.     POP    AX 
  187.     RET 
  188. ; 
  189. PRINT: 
  190.     PUSH    SI 
  191.     PUSH    BX 
  192.     MOV    SI,DX 
  193.     MOV    BX,3 
  194. PRIN1: 
  195.     LODSB 
  196.     CMP    AL,'$' 
  197.     JE    PRIN2 
  198.     MOV    AH,14 
  199.     INT    VIDEO        ; Teletype routine 
  200.     JMP    PRIN1 
  201. ; 
  202. PRIN2: 
  203.     POP    BX 
  204.     POP    SI 
  205.     RET 
  206. ; 
  207. CSEG    ENDS 
  208. ; 
  209.     END    START
  210.